How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/mainmenu/00119.ls

Text File | 1995-04-04 | 351 b | 18 lines

on exitFrame
  global hints
  if hints < 1 then
    set hints to the timer + 1800
  end if
  if the timer > hints then
    set hints to the timer + 1800
    if listp(the windowList) then
      if count(the windowList) = 0 then
        puppetSound(0)
        go("hint" & random(3))
        exit
      end if
    end if
  end if
  go(the frame - 1)
end